home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / develop / symcoff.arc / PLACLOSE.C < prev    next >
Text File  |  1988-11-07  |  2KB  |  35 lines
  1. static char *sccsid[]={"@(#)pldaclose.c 2.1",
  2. "Copyright 1985 by Motorola Inc."};
  3. #include <stdio.h>       /*DBG*/
  4. #ifdef PCPORT
  5. #include "/pld/src/hd/pcport.h"      /*PC-PORT*/
  6. #endif
  7. #include "../hd/pfilehdr.h"
  8. #include "../hd/pldfcn.h"
  9.  
  10. #include "../hd/pldf_dcl.h"        /*PC-PORT*/
  11. /****************** PLDACLOSE    ***************************************gs##*/
  12. /*                                                                        ##*/
  13. /*                                                                        ##*/
  14. /* Written by:  Michael Greenberg - MIL                                   ##*/
  15. /*                                                                        ##*/
  16. /*                                                                        ##*/
  17. /* ACTION:                                                                ##*/
  18. /*      Close a common object file, regardless of file type.              ##*/
  19. /*                                                                        ##*/
  20. /* RETURNS:                                                               ##*/
  21. /*      SUCCESS (it always succeeds)                                      ##*/
  22. /*                                                                        ##*/
  23. /* SYNOPSIS:                                                              ##*/
  24.       int pldaclose(ldptr)                                              /*##*/
  25. /*    -------------------                                                 ##*/
  26. register LDFILE *ldptr;                                                 /*##*/
  27. /*                                                                        ##*/
  28. /*************************************************************************##*/
  29. {
  30.         fclose(IOPTR(ldptr));
  31.         pldfreeptr(ldptr);
  32.         return(SUCCESS);
  33. }
  34. /* Copyright 1985 by Motorola Inc. */
  35.